home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
0292.ZIP
/
CUBS.ARC
/
ROSTERS.PRG
< prev
next >
Wrap
Text File
|
1985-12-21
|
3KB
|
144 lines
*ROSTERS.PRG
CLEAR
SET TALK OFF
? ' PRINT MENU'
?
?
?
?
? ' 1. Print All Rosters 6. Print Den 3 '
?
? ' 2. Print Leaders Only 7. Print Den W1 '
?
? ' 3. Print All Cubs 8. Print Den W2 '
?
? ' 4. Print Den 1 9. Not Used '
?
? ' 5. Print Den 2 0. Exit to Main Menu'
?
?
?
?
WAIT ' PICK A NUMBER...' TO CHOICE
DO CASE
CASE CHOICE = '1'
SELECT 2
GO TOP
DO LDRPRINT
SELECT 1
GO TOP
STORE ' ALLCUBS' TO MDEN
DO CUBPRINT
SELECT 1
SET FILTER TO DEN = '1'
GO TOP
STORE ' DEN 1' TO MDEN
DO CUBPRINT
SELECT 1
SET FILTER TO DEN = '2'
GO TOP
STORE ' DEN 2' TO MDEN
DO CUBPRINT
SELECT 1
SET FILTER TO DEN = '3'
GO TOP
STORE ' DEN 3' TO MDEN
DO CUBPRINT
SELECT 1
SET FILTER TO DEN = 'W1'
GO TOP
STORE 'DEN W1' TO MDEN
DO CUBPRINT
SELECT 1
SET FILTER TO DEN = 'W2'
GO TOP
STORE 'DEN W2' TO MDEN
DO CUBPRINT
CASE CHOICE = '2'
SELECT 2
GO TOP
DO LDRPRINT
CASE CHOICE = '3'
SELECT 1
GO TOP
STORE ' ALLCUBS' TO MDEN
CLEAR
? ' ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
DO CUBPRINT
CASE CHOICE = '4'
SELECT 1
SET FILTER TO DEN = '1'
GO TOP
STORE ' DEN 1' TO MDEN
CLEAR
? ' ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
DO CUBPRINT
CASE CHOICE = '5'
SELECT 1
SET FILTER TO DEN = '2'
GO TOP
STORE ' DEN 2' TO MDEN
CLEAR
? ' ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
DO CUBPRINT
CASE CHOICE = '6'
SELECT 1
SET FILTER TO DEN = '3'
GO TOP
STORE ' DEN 3' TO MDEN
CLEAR
? ' ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
DO CUBPRINT
CASE CHOICE = '7'
SELECT 1
SET FILTER TO DEN = 'W1'
GO TOP
STORE 'DEN W1' TO MDEN
CLEAR
? ' ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
DO CUBPRINT
CASE CHOICE = '8'
SELECT 1
SET FILTER TO DEN = 'W2'
GO TOP
STORE 'DEN W2' TO MDEN
CLEAR
? ' ALIGN TOP OF PAPER WITH PRINTHEAD'
?
WAIT ' Press any key to begin printing...'
DO CUBPRINT
CASE CHOICE = '9'
CASE CHOICE = '0'
RETURN
RELEASE ALL
ENDCASE CHOICE
ENDDO